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«NLIST 
o 
; Version: *v04-000' 
MARAABARBABAALALALALAASALALALAELEALELELA LEASE LALA AAEAEL EE AEAELESESLESELCLSCLASESS EASY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:? 
** ® 
* ® 
** ® 
** ® 
i THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
s® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie LUSION OF THE Ig ‘ Y : 
** * 
ie PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
* ® 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
:@ *® 
* ® 
:* ® 
:® ® 
* * 
-* *® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PRR RASAASLASASALL LAL ASASESESE SEALE LEER EERE SEARS SERRE RARER ASRS ARERR REAR SS 


; Modified by: 
v03-002 LJKO174 ence J. Kena 


2-Jul-1982 
Add .ENABLE SUPPRESSION to SDEFINI and SISABLE SUPPRESSION 
to SDEFEND when the GLOBAL parameter is not supplied. 


v03-001 LJKO171 ence J. Kenah 18-Jun-1982 
Add .NOCROSS to SDEF INI and eeROSS to SDEFEND 


v02-003 BLS0130 Benn Schreiber 4-Jan-1982 
Add S$SHR_MSGDEF macro 


v02.02 HvJ0002 Herb Jacobs 4-Au ye ts 
New versions of SDEF, S$EQU, SEQULST. views for improved 
performance at assembly ti time, 


v01.01 RNOOO1 R. Newland 9-Jul-1979 
ave local symbol block when seying pgect information 
in SDEFINI and SOFFSET. SPR #11-24166 


BLKB, ETC 
CIFIED BY ALLOC 


; : seou - EQUATE A SYMBOL 
SYM = SYMBOL NAME TO DEFINE 


B3 


Th 


N 14 
UTLDEFM.MAR; 1 16-SEP-1984 17:07:59.56 Page 2 


; VAL = VALUE TO ASSOCIATE WITH THE SYMBOL 
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: SOBLINI - INITIALIZE JHE, GLOBAL/LOCAL DEFINITION SWITCH 
GBL GLOBAL", "LOCA NULL. 
IF THIS BARAMETE ERIS "GLOBAL" 
GLOBAL DEFINITIONS ARE GENERATED. OTHERWISE 
LOCAL DEFINITIONS ARE GENERATED 


-MACRO $GBLINI GBL=LOCAL 
IF IDN <GBL> <GLOBAL> 
-MACRO - a. Snel SIZ 


T1IF NB. SY YM: : 
“LIF Abe ALLOC $12 
ENDM se , 

"MACRO $SEQU SYM, VAL 

Yes AL 


$SEQU 
-MACRO SVIELDI MOD ,SEP,SYM,S1Z,MSK 


} 
lif NB, size Siz ss. BO1E 
“IF NB ,SYM 
MOD'SEP'v_‘SyM==BIT.. 
IF NB, $1Z, MOD'SEP'S_‘SYM==S1Z 
HF NB.MSK, MOD'SEP'M~'SYM==<<<laSIZ...>-1>aBiT...> 
Bi texe =B]T...#SiZ... 
-ENDR SVIELD 
SIIF DIF <GBL> <LOCAL>,.ERROR ;ARG MUST BE “'GLOBAL"’,"LOCAL"',OR NULL; 
“MACRO $SDEF  SYM,ALLOC.SIZ 
SIF NB. SYM, SYM: 
“11F NB, ALLOC, ALLOC $12 
SENDM 
“MACRO $EQU = SYM, VAL 
SYM=VAL 
.ENDM — S$EQU 
MACRO SVIELD1 MOD,SEP,SYM,S1Z,MSK 
“UF NB, SIZ, $1Z...=S12 
MOD'SEP'V (3 ine =BIT... 
.IIF = NB, SIZ, MOD'SEP'S_"SYM=SIZ 
“HIF NB.MSK, MOD'SEP'M™"SYM=<<<1aSIZ...>-1>aBIT...> 
BIT... Oh sg seheeas 
.ENDM = SVIELD 
ENDC 


-ENDM = $GBLINI 
;SDEFINE - a Te feeb ING DEFINED 


ca = GLOBAL/LOCAL INDICATOR 
DOT = INITIAL ABSOLUTE LOCATION, DEFAULT = 0 


-MACRO SDEFINI STRUC,GBL,DOT=0 
SAVE _LOCAL_BLOCK 
NOCROSS 


UTLDEFM.MAR; 1 
“PSECT 
$GB GBLINI G 


s+ 
; SDEFEND = END 
STRUC = 


“no 
cw- 
al a 
“un 


STOR 
*ENDM 
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Sas <GBL> <GLOBAL>,. ENABLE SUPPRESSION 
~ eres ABS 


SDEF INI 


GLOBAL/LOCAL INDICATO 
STRUCTURE NAME SUFFIX 


SP Er ene Me »GBL , SUF =DEF 
$*STRUC' SUF 
DIF <GBL> <GLOBAL>,.DISABLE SUPPRESSION 


E 
SDEFEND 


zs 
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3+ 
; ; SVIELDI - ay 9 Tae BY SVIELD AND _VIELD 
Srenea ten CHARACTER BETWEEN MODULE NAME AND SYMBOL TYPE 


SIZE OF VIELD IN BITS 
"MASK" IF MODSM_SYM IS DESIRED 


“” 

~< 

Zz 
nnnnn 


: SvIELD = DEFINE A LIST OF VIELDS - GLOBAL FORMAT 
MOD = MODULE NAME 

INIBIT = INITIA L SIT N NUMBER. F 0 FOR , THE VIELDS | 

LIST = < <SYM1,SIZ1>,<SYM . MN,SIZN> > 
WHERE A DEGENERATE eee tek PAIRS 1s just “Sym 


.MACRO $SVIELD MOD,INIBIT,LIST 

“IIE NB IN git, BIT...=INIBIT 
$VIELD1 hots 

.ENDR 


ND 
-ENDM = SVIELD 
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| 


: .VIELD = DEFINE A LIST OF VIELDS = LOCAL FORMAT 
; MOD = MODULE NAME 
; INIBIT = Sint L BIT NUMBER 5fok , THE VIELDS 
3 LIST = < <SYM 121>,<SYM2, «+» “SSYMN,SIZN> > 
; WHERE A DEGENERATE sth tz PAIR IS JUST ''Sy¥m"’ 
MACRO VIELD MOD, INIBIT,LIST 
; aise” BIf...=INIBIT 


ND 
“ENDM pee 


Bee Oe Oe BHO See Be Se Se Be Oe Be Be Be Se Oe we SH He ee Pete ee ee Oe Oe Oe Oe Oe Oe ee Oe ee ee ee Oe ee ee Oe ee Oe Oe Oe ee Oe ee oe 
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+ 
: _SEQULS1 - USED INTERNALLY BY SEQULST 


: *seautst - EQUATE A LIST OF SYMBOLS 
; PREFIX = PREFIX TO BE ATTACHED TO NAMES IN THE LIST 
: GBL = GLOBAL/LOCAL INDICATOR 
: INIT = INITIAL VALUE TO BE ASSIGNED TO 1ST SYMBOL 
: INCR = INCREMENT TO BE ADDED TO VALUE ASSIGNED TO SYMBOLS 
: LIST = LIST OF SYMBOLS TO BE ASSIGNED VALUES 
: ENTRIES ARE OF THE FORM 
; = SYMBOL 
: <SYMBOL , VALUE> 
: IF A SIMPLE LIST OF SYMBOLS IS SPECIFIED, THEY ARE ASSIGNED 
; VALUES STARTING WITH THE INIT VALUE, INCREMENTED BY THE 
; SPECIFIED INCR VALUE (DEFAULT = 1). 
: IF A LIST IS SPECIFIED WITH SYMBOL, VALUE PAIRS, THE 
; SPECIFIED SYMBOL IS EQUATED TO THE VALUE AND THE 
: INIT AND INCR PARAMETERS DO NOT APPLY. 
.MACRO SEQULST PREFIX,GBL. INIT, INCR=1,LIST 
$GBLINI GBL 
.MACRO $EQULS1 ym. VAL=BIT... 
$EQU  PREFIX''SYM.<VAL> 
-IIF —-IDN <VAL> <BIT...> BIT...=BIT...+INCR 
"ENDM  $EQULS1 
TIIF NB, INIT, BIT...=INIT 
“IRP —sL, <LIST> 
$EQULS1 L 
ENDR 
“ENDM $EQULST 
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ASSUME = ASSEMBLY TIME CONSISTENCY CHECK 
ASSUME EXP1 RELATION EXP2 


FORCES ASSEMBLY ERROR IF EXP1 DOES NOT HAVE THE SPECIF 
NUMERICAL RELATION TO EXPS, E SPECIFIED 


«MACRO ASSUME EXP1,RELATION,EXP2 
IF RELATION <<EXP1>-<EXP2>> 


oo ; teeee EXP] MUST BE RELATION EXP2 ; 
-ENDM ASSUME 
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:+4 
; MACRO TO GENERATE A OFFSET LIST FOR A DATA STRUCTURE 


IT IS USEFUL FOR INPUT ARGUMENT LISTS POSITIVELY INDEXED FROM AP, AND 
WORK AREAS ALLOCATED IN CALL STACK AND NEGATIVELY INDEXED FROM FP. 


¢ CALL: SOFFSET INITIAL DIRECTION,<<LAB1,CSIZEJ>,...,<LABN,CSIZEJ>> 


INITIAL _IS A REQUIRED VALUE FOR THE INTIAL INDEX WHEN 
ORIGINATING A DATA STRUCTURE DEFINITION. IT IS NORMALLY 
(+) & FOR ARGUMENT LISTS AND 0 FOR WORK AREAS. 


DIRECTION IS A KEYWORD THAT MUST BE: 
POSITIVE - FOR STRUCTURES GROWING UP IN MEMORY 
NEGATIVE = FOR STRUCTURES GROWING DOWN IN MEMORY 
OR BLANK, IN WHICH CASE POSITIVE IS ASSUMED. 
THE LABEL, SIZE LIST IS THE SYMBOLIC NAME FOR THE LOCATION 
AND THE OPTIONAL SIZE OF THE ELEMENT. IF BLANK, SIZE IS 
ASSUMED TO BE 4 ( ONE LONGWORD ). 
TO PERMIT THE DEFINITION OF AN INDEFINITLY LARGE NUMBER OF LABELS, 
THE MACRO MAY BE CONTINUED. IN THIS CASE THE "INITIAL" AND 
DIRECTION” ARGUMENTS MUST BE BLANK: 


MACRO SOFFSET MA ected »DIRECTION, SYMLST 


-IF NB DIRECTION 


LUE 
NB DIRECTION 
N <DIRECTION>,<POSITIVE> 


ID 
IDN SDIRECTIOND , UEGATIVE> 
oo=? 


OR ; ‘DIRECTION’ MUST BE ‘’POSITIVE'’,"'NEGATIVE’’, OR BLANK; 


 Taslaslaslaslasl oie i 1 le) 


M,<SYMLST> 
YM 


2 SmS 


=. 
» RESTORE 
-ENDM SOFFSET 


~MACRO SOFFST1 SYM,SIZ=4 
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SYM: 


IF LT, S12 
-ERROR yeeeee SIZ PARAMETER NEGATIVE teeee; 
olf LT DIR... 
“BLKB=S{Z 
ENDC 

-IF NB,SYM 

“LIST © MEB 
.NLIST MEB 

ENDC 

TIF GT,DIR... 
“BLKB S12 

ENDC 


-EN 
-ENDM SOFFST1 


The SSHR_MSGDEF macro defines vos Ss Sey eper ttre message codes 


which are based on the system-w 


de shared message codes. 


SSHR_MSGDEF name, code, scope, <<msg,severity>, ... > 


where: 


name is the name of the vag etl ry e.9. ie 
code is the corresponding (eet ty code 5¢39- 
ecuse is GLOBAL to define 3 lobally, else def ned 
msg s the name of the shared message (e.g., COPI 
severity is the desired message severity (e.g., 1, 0, 2, 4) 


103 
lo 


whe 
oe 


Symbols of the form ‘name'$_'msg' (e.g. COPYS_COPIEDB) are defined 
»-MACRO $SHR_MSGDEF NAME , CODE ,SCOPE ,MSGCODES 


IF NDF , SHR$K_SHRDEF ; issue SSHRDEF if not done yet 
SHR$K_SHRDEF = 1 : define symbol to indic $SHRDEF done 
F ; define shared message codes 
~ENDC 
$$GBL 
lif Ton te: ary tt tye 1 
“IRP = MSGPAT SGCODES> 
SEHR ARSE COD” "NAME', "CODE", MSGPAIR 
.ENDR 
~ENDM 
«MACRO S$SHR_MSGCOD NAME, CODE, MSG, SEVERITY 
IF IDN, SEVERITY, WARNING ; if WARNING, set 0 sev 
IF EQ $$GBL 
Se *MSG' = 0 3; set 0 sev (WARNING) 
"NAME'S_‘MSG* == 0 ; set 0 sev (WARNING) 
ifr 
If IDN, SEVERITY,SUCCESS ; if SUCCESS, set 1 sev 
IF EQ $$GBi 
NAME'$_ ‘MSG* = 1 ; set 1 sev (SUCCESS) 


""NAME'S_'MSG' == 1 ; set 1 sev (SUCCESS) 
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ifr 

E «If TDN, SEVERITY -ERROR ; if ERROR, set 2 sev 
TNAME'S_ "MSG = 2 ; set 2 sev (ERROR) 
“"NAME'S_'"MSG' == 2 : set 2 sev (ERROR) 
iff? 

"LIF IDN, SEVERITY, INFO ; if INFO, set 3 sev 
“TNARE'S_ "RSG = 3 : set 3 sev (INFO) 
“*NAME'S_'MSG' == 3 ; set 3 sev (INFO) 
if 

yet IDN. SEVERITY , SEVERE ; if SEVERE, set 4 sev 
IF €Q $$GBL 
TNARE'$_" RSG" = 4 : set 4 sev (SEVERE) 
“'NAME'S_"MSG' == 4 ; set 4 sev (SEVERE) 
.ENDC 
.1FF 
IF €Q $$GBL 
toads neal = "SEVERITY 3; set specified sev 
“"NAME'S_"MSG' == "SEVERITY =; set specified sev 
.ENDC 
EN 
.ENDC 
.ENDC 
.ENDC 
.ENDC 
“IF £Q $ 
TNARE'S_ "MSG" = "NAME'S_'MSG'+SHRS_'MSG'+<'CODE'a16> 
"NARE'S_" SG" == '"NAME'S_'"MSG'+SHRS$_'MSG'+<'CODE'a16> 


*ENDM 
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04% [PMENT CORPORATION 


Sontag AND PROPRIETAR 


